home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 136 / Tiger_Disk_136_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 116 -ende- (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  11 lines
  1. 1 poke53280,11:poke53281,12:print"[147][151]     aus lukian's nonsens-werkstatt     ";:::print"[146]"
  2. 3 forz=1to750:next:poke53280,.:poke53281,.:print"[147]ready";:print"";:gosub51:print"[147]   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   ";:poke19,1:poke56325,55:input"[145][145]    wer bist'n du?    ";n$:poke646,4:forc=1to24:poke646,c:print"";
  3. 13 geta$:ifa$=""thenprint"[147]tut mir leid,  ";n$;"[146]    jetzt ist";:
  4. 15 :next:forc=2to13:poke646,c+1:print"";:print"[147] [209][209][209][209]  [209][209][209][209] [209]   [209] [209]    [209]   [209]  [209][209][209][209]  [209][209][209][209]";:print"[209]     [209]     [209]   [209] [209]    [209]   [209] [209]     [209]":print" [209][209][209]  [209]     [209][209][209][209][209] [209]    [209]   [209]  [209][209][209]   [209][209][209]":print"    [209] [209]     [209]   [209] [209]    [209]   [209]     [209]     [209]";
  5. 25 print"[209][209][209][209]   [209][209][209][209] [209]   [209] [209][209][209][209]  [209][209][209]  [209][209][209][209]  [209][209][209][209]":next:poke161,.:poke162,.:wait161,1:fore=1to5:poke53281,11:poke53281,.:next:forp=0to80:print"                                        [157][157][157][157][157][157] [145]";:next:fore=1to15:poke53281,2:poke53281,.:next:gosub57
  6. 33 forz=1to750:next:print"[147]du glaubst mir wohl nicht, ";n$"?":poke162,.:wait162,64:print"[153][147] >>>>>>>> es ist wirklich ende! <<<<<<<<";:forz=1to550:next:forp=0to41:poke646,p/2:print"                                                  [157][157][157][157][157][157][157][157][146]";:next:poke646,int(rnd(0)*12+4)
  7. 45 print"[147] meinetwegen glotz' dem bildschirm an, ":print" wenn du meinst, es kommt noch was...   ";:print"":forz=1to750:next:pokes+4,128:print"ready.":poke646,peek(53281):
  8. 46 forz=1to1550:next:poke53280,11:poke53281,11:poke646,12:sys58253
  9. 51 s=54272:pokes+24,15:pokes+4,17:pokes+11,33:fort=1to20:pokes+1,5+abs(41-t)/3:pokes+8,8+abs(20+t):next:ford=1to11:pokes+5,15*16+d:pokes+12,15*16+d:next:pokes+4,49:pokes+11,29:forl=0to16step.8:pokes+4,l:pokes+11,(l+l):next:return
  10. 57 s=54272:pokes+24,15:pokes+4,17:fort=1to13:pokes+1,5+abs(15+t):pokes+4,29:next:ford=0to129step.7:pokes+5,9:pokes+4,d:next:pokes+4,128:return
  11.